home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Constellations.gt5 < prev    next >
Encoding:
Text File  |  2003-08-14  |  1.8 KB  |  66 lines
  1. OpenWorkspace "Const_trev.ws5"
  2. Set wnd = getWindow(1)
  3. Set Camera = wnd.camera
  4. Set theTime = camera.time
  5. Set Direction = camera.Direction
  6. Set Location = camera.Location
  7. '---- end standard prologue'
  8. wnd.MDIWindow.State = SW_MAXIMIZE
  9.  
  10.  Set obj_l = Location.CentralObject
  11. ' Location.SetLonlat 0.00000000000000E+000 , 1.57079632679485E+000
  12. ' Location.Position = 2000
  13. set pl =PlayerWindow
  14. 'pl.top=450
  15. 'pl.left=600
  16. pl.top=Screen.height-150
  17. pl.left=Screen.width-200
  18. set txt = CreateTextWindow
  19. txt.LoadFile "const_trev1.html"
  20. 'txt.Locate 0,315,225,240
  21. txt.Locate 0,Screen.height-255,225,240
  22. txt.Show
  23. settimemark
  24.  theTime.Forward
  25.  WaitFrames 47 : theTime.Stop
  26. waitfortime 23000
  27. txt.LoadFile "const_trev2.html"
  28.  Location.LatStepUnits = 0
  29.  Location.StepLattitude = 8.72664625997139E-002
  30.  Location.BackwardLat
  31.  WaitFrames 17
  32.  Location.StopLattitude
  33.  Location.SetLonlat 0.00000000000000E+000 , 0.00000000000000E+000
  34.  Location.Position = 2002 : UpdateWindows
  35.  pause 5000
  36. waitfortime 20000
  37.  txt.Locate 0,Screen.height-230,225,215
  38.  txt.LoadFile "const_trev3.html"
  39.  Direction.HorzStep = 8.72664625997139E-002
  40.  Direction.BackwardRa
  41.  WaitFrames 17
  42.  Direction.RaStop
  43. ' pause 2000
  44.  theTime.Forward
  45.  WaitFrames 36 : theTime.Stop
  46. ' pause 2000
  47. waitfortime 18000
  48. txt.Locate 0,Screen.height-165,225,150
  49. txt.LoadFile "const_trev4.html"
  50.  Direction.Ra = 3.14159265358970E+000  : UpdateWindows
  51.  Location.BackwardLat
  52.  WaitFrames 17
  53.  Location.StopLattitude
  54.  Location.SetLonlat 0.00000000000000E+000 , -1.57079632679485E+000
  55.  Location.Position = 2001   : UpdateWindows
  56. ' pause 1000
  57. waitfortime 10000
  58. txt.Locate 0,Screen.height-180,225,165
  59. txt.LoadFile "const_trev5.html"
  60.  theTime.Forward
  61.  WaitFrames 40 : theTime.Stop
  62. waitfortime 12000
  63.  txt.Close
  64. ' end recording
  65.  
  66.